home *** CD-ROM | disk | FTP | other *** search
/ NEC SuperScript 860 Solutions / NEC SuperScript 860 Solutions.iso / internet / scripts.lib / FENICS2.SCR < prev    next >
Text File  |  1994-12-29  |  1KB  |  54 lines
  1. !
  2. !  Copyright (c) 1994
  3. !  by CompuServe Incorporated, Columbus, Ohio
  4. !
  5. !  The information in this software is subject to change without
  6. !  notice and should not be construed as a commitment by CompuServe.
  7. !
  8. !  FENICS II:
  9. !    Connect to FENICS II
  10. !    Success:  returns %Success
  11. !    Failure:  saves error msg in %FailureMsg and returns %Failure
  12. !
  13. !+V
  14. ! "3.5.2"
  15. !-V
  16.  
  17. show "Connecting to FENICS II"; 
  18. Tries = 5;
  19. on cancel goto Return_Cancel;
  20. wait until 50;
  21. send " P" & %CR;
  22.  
  23. Wait_FENICS2:
  24.     if Tries = 0 goto Return_Failure;
  25.     Tries = Tries - 1;
  26.  
  27.     wait
  28.         "Host Name?"    goto Send_FENICS2_Host,
  29.         "User ID:"    goto Return_Success,
  30.         "Host Name:"    goto Return_Success,
  31.         %mdm_Failure    goto Return_Failure
  32.     until 80;
  33.  
  34.     send " P" & %CR;
  35.     goto Wait_FENICS2;
  36.  
  37. Send_FENICS2_Host:
  38.     wait until 10;
  39.     show "Sending FENICS II address...";
  40.     send "C CIS" & %CR; 
  41.     goto Wait_FENICS2;
  42.  
  43. Return_Failure:
  44.     define %FailureMsg = "FENICS II not responding";
  45.     exit %Failure;
  46.  
  47. Return_Cancel:
  48.     exit %Cancel;
  49.  
  50. Return_Success:
  51.     send %CR;
  52.     wait until 10;
  53.     exit %Success;
  54.